use File::Find::Rule;

my @files = File::Find::Rule->file()->name( '*.pm' )->in( @INC );
print @files;

         # find all the subdirectories of a given directory
#         my @subdirs = File::Find::Rule->directory->in( $directory );

         # find all the .pm files in @INC
#         my @files = File::Find::Rule->file()->name( ’*.pm’ )->in( @INC );

         # as above, but without method chaining
#         my $rule =  File::Find::Rule->new;
#         $rule->file;
#         $rule->name( '*.pm' );
#         my @files = $rule->in( @INC );

